home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / tonyray1.arc / MENULIST.PRG < prev    next >
Encoding:
Text File  |  1985-05-25  |  1.8 KB  |  78 lines
  1. CLEAR
  2. WAIT 'POSITION PRINTER AND HIT RETURN'
  3. USE TWO INDEX NAME
  4. GOTO TOP
  5. LINE = 2
  6.    SET DEVI TO PRINT
  7.    MTITLE = 'LIST OF BILLING CODES'
  8.    POS = 40 - (LEN(MTITLE)/2)
  9.    @LINE,POS SAY MTITLE
  10.    LINE = 4
  11.    POS = 0
  12. DO WHILE .NOT. EOF()
  13.    SET DEVICE TO PRINT 
  14.    @LINE,POS SAY CODE+' '+DESCRIPT
  15.      SKIP
  16.    LINE = LINE+1
  17.    IF LINE >= 56
  18.       @PROW(), PCOL() SAY CHR(13)
  19.       @PROW(),PCOL() SAY CHR(12)
  20.       SET DEVICE TO SCREEN
  21.    WAIT 'MOVE PRINTER BACK TO FIRST LINE OF CODE AND HIT ANY KEY'
  22.       LINE = 0
  23.       POS = POS +26
  24.    ENDIF
  25. ENDDO
  26. @PROW(),PCOL() SAY CHR(12)
  27. SET DEVICE TO SCREEN
  28. WAIT 'ADJUST PRINTER FOR NEW PAGE AND HIT ANY KEY'
  29. USE TWO INDEX VCODE
  30. GOTO TOP
  31. LINE = 2
  32.    SET DEVI TO PRINT
  33.    MTITLE = 'LIST OF BILLING CODES'
  34.    POS = 40 - (LEN(MTITLE)/2)
  35.    @LINE,POS SAY MTITLE
  36.    LINE = 4
  37.    POS = 0
  38.    FIND '1'
  39. DO WHILE CODE >= '1' .AND. CODE <= '9'
  40.    SET DEVICE TO PRINT 
  41.    @LINE,POS SAY CODE+' '+DESCRIPT
  42.      SKIP
  43.    LINE = LINE+1
  44.    IF LINE >= 56
  45.       @PROW(), PCOL() SAY CHR(13)
  46.       @PROW(),PCOL() SAY CHR(12)
  47.       SET DEVICE TO SCREEN
  48.    WAIT 'MOVE PRINTER BACK TO FIRST LINE OF CODE AND HIT ANY KEY'
  49.       LINE = 0
  50.       POS = POS +26
  51.    ENDIF
  52. ENDDO
  53. SET DEVICE TO SCREEN
  54. LINE = PROW()+2
  55.    FIND 'A'
  56.    MLETTER = 'A'
  57. DO WHILE CODE >='A' .AND. CODE <='E'
  58.    SET DEVICE TO PRINT
  59.    IF SUBSTR(CODE,1,1) <> MLETTER
  60.      LINE = PROW()+2
  61.      MLETTER = SUBSTR(CODE,1,1)
  62.    ENDIF  
  63.    @LINE,POS SAY CODE+' '+DESCRIPT
  64.      SKIP
  65.    LINE = LINE+1
  66.    IF LINE >= 56
  67.       @PROW(), PCOL() SAY CHR(13)
  68.       @PROW(),PCOL() SAY CHR(12)
  69.       SET DEVICE TO SCREEN
  70.    WAIT 'MOVE PRINTER BACK TO FIRST LINE OF CODE AND HIT ANY KEY'
  71.       LINE = 0
  72.       POS = POS +26
  73.    ENDIF
  74. ENDDO
  75. SET DEVICE TO SCREEN
  76.  
  77. RETURN
  78.